home *** CD-ROM | disk | FTP | other *** search
/ Delphi Magazine Collection 2001 / Delphi Magazine Collection 20001 (2001).iso / DISKS / ISSUE02 / TPACK / TPACK.ZIP / TPACK.DPR < prev    next >
Encoding:
Text File  |  1995-06-02  |  1.3 KB  |  46 lines

  1. program tPack;
  2.  
  3. uses
  4. {  Splash, }    {normally this is how you call the splashscreen,
  5.                  but for the tPack demo it's been replaced with:}
  6.   Splash in 'SPLASH.PAS' {SplashScreenForm},
  7.   DemoPack in 'DEMOPACK.PAS' {tPack2Form},
  8.   TpAbout in 'TPABOUT.PAS' {AboutBoxForm},
  9.   Debug in 'DEBUG.PAS' {DebugDlg},
  10.   LoginDlg in 'LOGINDLG.PAS' {LoginDialogForm},
  11.   ErrorMsg in 'ERRORMSG.PAS' {ErrorDialogForm},
  12.   Working in 'WORKING.PAS' {WorkingForm},
  13.   PasUtils in 'PASUTILS.PAS',
  14.   ToolProc in 'TOOLPROC.PAS',
  15.   Shells in 'SHELLS.PAS',
  16.   OkCore in 'OKCORE.PAS',
  17.   Bitbox in 'BITBOX.PAS',
  18.   IniLink in 'INILINK.PAS',
  19.   Restorer in 'RESTORER.PAS',
  20.   Debugctl in 'DEBUGCTL.PAS',
  21.   UserInfo in 'USERINFO.PAS',
  22.   UserBDE in 'USERBDE.PAS',
  23.   UserWin in 'USERWIN.PAS',
  24.   UserNetW in 'USERNETW.PAS',
  25.   Toolbar in 'TOOLBAR.PAS',
  26.   Resizer in 'RESIZER.PAS',
  27.   TxtGrid in 'TXTGRID.PAS',
  28.   MiscComp in 'MISCCOMP.PAS',
  29.   Invoice in 'INVOICE.PAS' {InvoiceForm},
  30.   RegTPack in 'REGTPACK.PAS',
  31.   Dialogs,
  32.   WinProcs,
  33.   Forms;
  34.  
  35. {$R *.RES}
  36.  
  37. begin
  38.   Application.Title := 'Informal Component Demo Pack';
  39.   Application.CreateForm(TtPack2Form, tPack2Form);
  40.   if HPrevInst=0 then
  41.     Application.Run
  42.   else
  43.     With Application do
  44.       MessageDlg(Title+' can not be running twice!', mtInformation, [mbOk], 0);
  45. end.
  46.